load(file="bichos.rdata")
ls()
rm("temp1","temp2","temp3")
save(anfibios,aves,mamiferos, file="bichos01.rdata")